home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PINBSRC.ZIP
/
_RANDOM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-17
|
230b
|
16 lines
function random255:byte;
begin
random255:=ran255[ran255z];
inc(ran255z);
end;
procedure init_random;
begin
randomize;
for ran255z:=0 to 255 do
begin
ran255[ran255z]:=random(255);
end;
end;